﻿Module MessageController
    Enum WatchType
        Create = 0
        Rename = 1
        Delete = 2
        Change = 3
    End Enum

    Public messagelist As New ArrayList


    Public Function Contains(ByVal filename As String) As Boolean

        Dim isContains As Boolean = False

        For Each item As String() In messagelist
            If item(0) = filename Then
                isContains = True
                Exit For
            End If
        Next

        Contains = isContains
    End Function





End Module
